home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 Game / Image.bin / Humor / Billmo Comedy / Billmo Comedy Skit / Billmo Comedy Skit.0 / 00032_Frame loop.ls < prev    next >
Encoding:
Text File  |  1997-05-01  |  1.1 KB  |  64 lines
  1. on keyDown
  2.   if the key = 1 then
  3.     play frame "New"
  4.   end if
  5.   if the key = "s" then
  6.     play frame "New"
  7.   end if
  8.   if the key = 2 then
  9.     play frame "Party"
  10.   end if
  11.   if the key = "p" then
  12.     play frame "Party"
  13.   end if
  14.   if the key = 3 then
  15.     play frame "Mono"
  16.   end if
  17.   if the key = "m" then
  18.     play frame "Mono"
  19.   end if
  20.   if the key = 4 then
  21.     play frame "Hug"
  22.   end if
  23.   if the key = "h" then
  24.     play frame "Hug"
  25.   end if
  26.   if the key = 5 then
  27.     play frame "Dumb"
  28.   end if
  29.   if the key = "d" then
  30.     play frame "Dumb"
  31.   end if
  32.   if the key = 6 then
  33.     play frame "Upgrade"
  34.   end if
  35.   if the key = "u" then
  36.     play frame "Upgrade"
  37.   end if
  38.   if the key = 7 then
  39.     play frame "Where"
  40.   end if
  41.   if the key = "w" then
  42.     play frame "Where"
  43.   end if
  44.   if the key = "r" then
  45.     go("Splash")
  46.   end if
  47.   puppetSound(0)
  48.   if the key = 8 then
  49.     puppetSound("Browser")
  50.   end if
  51.   if the key = "l" then
  52.     puppetSound("laugh")
  53.   end if
  54.   if the key = "e" then
  55.     play frame "END"
  56.   end if
  57.   updateStage()
  58.   play frame "Shake it!"
  59. end
  60.  
  61. on exitFrame
  62.   go(the frame)
  63. end
  64.